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Letters. 


Dennis Johnson. Porthcall 


Please find enclosed details of a sound generator circuit that I 
have fitted to my Cortex and have been using for some time. I 
have written a space invaders programme using the P.S.G. 
controller and aeshort athello game for one player against 
another using the keyboard I will forward them if of any use. 


We have included Denises P.S.G. circuit in this edition of the 
newsletter and look forward to publishing his other articles as 
soon as he sends them in. Please dont bother to ask if we want 
articles or programmes, just send in anything you have. Even if 
people do not actually want the particular programme sent in it 
can usually be of interest to see the programming tequni ques 
used. 


Oliver Hulme. Hednesford staffs. 


Congatulations on yet another successful user group meeting on 
september the Sth. I for one had a very enjoyable day. AS an 
amateur I tend to feel a little out of place with all the 
experts, but thankfully you did not. let my ignorance show. 

I would therefore like to thank all you fellow Cortexians for all 
the help you have given me. It‘s surprising how much of your know 
how I have managed to pick up. See you all at the next meeting. 


Oliver is retired and his Cortex is the first thing he has done 
with electronics since the days of the valve. He has recently got 
E.Bus up and running and has fitted one of the new Western 
Digital disk controller cards. This and his P.C.B. Plot programme 
in this issue shows that he is getting to grips with the latest 
technology. 


R.M.Lee. Kent. 


Mr Lee has recently married and moved house so his computing has 
slowed down for a while. He asked us to print his new address.-— 


R.M.Lee, 8 Rendown Road, Lordswood, Chatham, Kent, MES 8SG. 


Also on the move is John Makenzie his new address is.- 


J.5S.Makenzie, 2@ West Road, Barton Stacey, Winchester, Hants. 


MDEX. 
The user group has now taken posession of about 150 disks full of 
MDEX software. As soon as we have sorted it out we will publish 


details of what 156 available. Rex Collins has offered to handle 
MDEX support for the group and Athony Rowell is in the process of 
generating a 4 drive version that will allow us to do disk format 
transfers from 4@T to S8@T etc. Also Nigel Osmond who uses Q@ Basic 
the Basic compiler for MDEX a lot, has offered to write some 
articles on how to use it. So we will be hearing more in future. 


REMEMBER TO SEND IN YOUR ARTICLES FOR THE NEXT NEWSLETTER 
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PROGRAMMABLE SOJND GENZRATOR. By *).7oOhnson. 
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I built the above circuit on a Vero VQ board and fitted it inside the 
lid of my Cortex™l. 
Y3 is the input from IC35 on the main board and maps the PSG to F160 
Al3 & Al4 via the 7402 give me the necessary functim codes for the PSG. 
Clock must be less than 2 MHz and as I havent got a isk drive I used | 
TC69b on the main board to divide CLK by two to give me 1.5MHz.If you 
have a disk drive then you could add an LS74 to the above circuit. 
The LM380 gets quite warm but does not need a feat sink.T£ you prefer 
you could run the signal through your own amplifier flrom channels A,B& C 
by connecting them together and to @v via 1K2 and through 100Mfd to the 
amp. input. 


DaTAIL. 
The PSG has 15 registers RO to R15. 
RO to R5 provide tones,R6 noise,R7 is the enable register, R8, 9 & 10 
control each channels volume, R11, 12 & 13 control the envelope shape 
and R15 & 16 are the input output ports,A & B. 
The addresses are: 

F160 Latch address 

F162 Read data from PSG | 

F164 Write data to PSG | 

F166 Inactive | 
Register 7 is laid out as follows: 
Bits 0,1 & 2 enable tones from channels A 8 & C when low. 
Bits 3,4 & 5 enable noise from channels A B & C when low. 
Bits 6 & 7 enable input from I/O A & B when low and output when high: 
I have run I/O channéés to 9 way D type connectors and use them for games 
controllers.The pins all have internal pull ups and read FFFF when read. 
All you need to do is ground any output pin and read. | 
I have also successfully run my epson MX80 in parallel through these ports. 
I used the printer spooler from Newsletter 2 with my coding added in place 
of the CRU coding. 


PROGRAMMING: ss 
To read I/O: 10 MEM{OP16GH)=O0FH (port A) 
20 A=MEM (OF162H) 
30 Print A (or wnatever you want to do with it) 


In M/C LI R1,>#OO 
MoVB R1,:arr 160 
MOVB a>F162, R2 
MOVB R2,@>Save Location 


To write I/O 10 MEM{OF160H)=OFH (port B) 
20 MEM (PF164H) =DATA_ 
In M/C | LI R1,@ Foo 


LI R2,@>DATA 
MOVB R1,@>F160 
MOVB R2,@>F164 {3:3 


SORT DIRECTORY PROGRAMME 


Sorts the disk directory 


12 
20 
30 
4a 
SQ 
5@ 
72 
82 
92 
102 
110 
120 
138 
142 
152 
142 
172 
182 
19@ 
200 
210 
220 
230 
240 


238 


260 — 


270 
280 
290 
300 
318 
32Q 
330 
34Q 
350 
340 
370 
38a 
390 
420 
410 


426 


430 
442 
450 
450 
470 
480 
490 
500 
512 


REM 
REM 
REM 
REM 
REM 


REM 


REM 

REM 

REM 
DAT 
DAT 


HEHHHHHHHKHEHHEE 


SORTDIR 


Version 1.0 


kk Kk OK OF 
xk ok OK OK 


HHEKHHHEHHEHEKEE HE 


A 0420H,06180H,2 
A @380H,0448H, 84 


DATA @48H,@D@DQH, @D 
DATA @602H,@16FBH,@ 


BY  C.J.YQUNG 


entries into alphabetical 


DQQOH,@14@01H 
SSQH ,@207H 
C11H,@DC43H 
38H ,@C10QH 


SCSH,@706H 
@146FQH ,@926H 


m 1.06 1987" 


les 


ors/track 
# Sectors 
ctory start 
Files 
'RBytes/Sector 
Dir Addr 
Dir Length 


+ 


DATA @C141H,O5C4H,0 
DATA 09D74H,@15F3H, 
DATA @146FBH,@01@F 4H 
DATA @O 

REM 

REM * Set up variables * 
REM 

TEXT 

? " Sort Dir Progra 
? " Input Drive ?";5 
IK=KEYCO] 

IF IK=@: GOTO 248 
IF IK<48: GOTO 248 
IF Ik>Si: GOTO 240 
DRV=I1K-48 

? DRV 

D2=DRV#*2 

D=DRV#2356 

NF=0 ‘'!Number of fi 
REM 

REM * Get drive parameters * 
REM : 
DP=MWD(046382H+D2 1] 
SPT=MWDE DP 1 ' Sect 
NS=MWDCDP+2 ] 'No o 
DS=MWDCDP+4) ‘Dire 
MF=MWDECDP+6] 'Max 
BPS=MWDL0@63462H+D2] 
DDA=DS*BPS ! Disk 
DDL=MF#64_ $ Disk 
REM 

REM * Set up Arrays 
REM 

DIM MCL99] 

DIM BCDDL/6+1] 

DIM @NNMC1]- 

DIM #SYC1,1] 
$SYCO,01="SYSTEME" 


\3-q¢ 


order 


520 
530 
540 
550 
560 
578 
580 
590 
600 
610 
620 
530 
640 
650 
460 
570 
480 
590 
720 
71@ 
720 
730 
740 
750 
760 
77@ 
780 
792 
800 
B10 
820 
830 
840 
850 
B40 
870 
880 
B90 
900 
910 
928 
930 
940 
950 
96@ 
970 
780 
999 
100@ 
1010 
1920 
1030 
1040 
1850 
1042 


$SYC1,@)]="AUTOEXEC" 
ST=0 'Start Of O/FP 
AMC=ADRCMCLO)] 
SWP=AMC+14 
CHK=AMC+30 

AB=ADRC BOI) 

FOR I=@ TO 777 STEP 2 


READ @ 
IF Q: MWDCAMC+I1=0Q 
ELSE I=999 

NEXT I 
REM 
REM * Read directory * 
REM 
CALL AMC ,@,D,DDA,AB,DDL 
REM | 
REM * Sort Directory * 
REM | | 


FOR X=@ TO MF-1 
IF MWDCAB+X*641=0: GOTO 7350 
IF X=NF: GOTO 74@ 
CALL SWP,AB+NF*64,ABt+X*54 
NF=NF +1 
NEXT X 
? “Number of Files ="NF 
IF NF<2: STOP 
REM 
REM * Check For System Files * 
REM | 
FOR Q=@ T0 1 
FOR Z=0 TO NF-1 
FOR I=0 TO 7 
SNMC@s 1+1]=AMEMCAB+Z*64+14+2170 
NEXT I 
IF *NMC@1<>#SYCQ,@1: GOTO 900 
IF Z=ST: GOTO 890 
CALL SWP,AB+ST#&64,AB+Z*64 


REM 
REM * Sort Rest Of Files * 
REM 
FOR 7=ST TO NF-2 
FOR X=Z+1 TO NF-1 
CALL CHK ,AB+X*464,AB+Z*64 
NEXT X | 
NEXT Z 
REM 
REM * Write Directory * 
REM 
CALL AMC ,OFFH,D,DDA,AB, DDL 
? "Done" 
STOP 
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DOUBLE DENSITY DISK INSPECT. BRIAN HARRIS. PLYMOUTH, DEVON. 


In NEWSLETTER 1@, it was mentioned that the DISK INSPECT UTILITY does 
not work on double density disks. What in fact happens is that only 
half a sector is displayed. I.E. Only 128 bytes instead of 256. Some 
time ago I modified the D.I. utility, ( CDOS disk inspect utility 1-9 
1984 ) to diplay the full 256 double density bytes. The following is 
a listing of the amended program. New lines have !** after them, 
altered lines '*. Do’nt forget the space corrections in lines 278, 290 
and S40. 


LIST 
196 TEXT : 7? @(@,17);"CDOS double density disk inspect " | ¥ 
119 > @(@, 23); "CLAscii,Decrement,Hex, Increment,ModifyI"s | 
120 DIM XC4],BL5@1: $M="H" | 
12@ AX=ADREXC@1I]: AB=ADRIBCOI]I 
1446 MWDCAXI=@426H: MWDLAX+21=@6266H 
145 MWDCAX+4J=@DSC6H: MWDEAXK+61]=02H 
156 MWDLAX+81=03890H | 
16@ ? @(6,19);" Drive "s 2? " Track tse 2 ™ Sector . 
165 7 @(16,19)3: INPUT 7Z1;:D 
167 IF D?3 THEN GOTO 155 
178 ? @(8,290)3s: INPUT Z3;T 
186 IF T<@ OR T2159 THEN GOTO 176 
i9@ 7? @(9,21)5: INPUT “42; 
20@ IF S¢<@ OR S>15 THEN GOTO 196 
271i9@ E=0 
2270 CALL AX,D,T,S,ADRIE],AB,9,% 
2S IF E<?@ THEN ? @(16,19)3 "READ ERROR"; £E/256 LAND @3FH: GOTO 359 
2460 ? @(16,19)5" e : 
25@ BB=AB: %? &"H"S 
26@ FOR R=@ TO 15 


2/9 ? £3R*165" "5 i+ , 

2830 FOR C=9 TO 15 $‘'* 

Pl A, IF $M="H" THEN 7 £;MEMCBRIs 1 
3908 IF @M="A" THEN GOSUB S2@ 

318 BH=BR+1 

328 NEXT C 

SAG ° 


34@ NEXT R 

35@ ? @(20,20)3: INPUT “Command"£1, $K3 
360 IF #K="I" THEN S=S+1: GOTO 43 

37@ IF #K="D" THEN S=S-1: GOTO 430 
380 IF #K="" THEN GOTO 160 

396 IF $K="A" THEN $M=$K: GOTO 250 
40@ IF $K="H" THEN $M=$k: GOTO 250 
410 IF $K="M" THEN GOTO 72¢ 

42@ GOTO 1608 

43@ IF S<@ THEN T=T-1: S=15 

44@ IF S>15 THEN T=T+i: S=0 

45@ IF T<@ THEN T= 

46@ IF T2159 THEN T=159 

A7@ ? @(8, 2@) £"E@O"T: 7 @(9, 21) £"O0"S 
486 GOTO 71° 

49@ CALL AX,D,7T,S,ADRLE],AB,®, @FFH 
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IF E<>@ THEN ? @(270,19)3; "WRITE ERROR"; fE/256 LAND 

GOTO 35e | 

IF MEMCBBI<@2@H THEN #@="." 
ELSE #Q=Z~MEMCBB1IZ6 

? $03" “s lx 

RETURN 

BRB=AB: R=@: C=6 '# 

IF MEMCBBR12@1FH THEN $SS=AMEMCBB1Z@ 
ELSE #SS="_" 

? B(C,RI3$SS3: 7 @"L"S 

K=KEY[L@]: IF K=@ THEN WAIT 1: GOTO 606 

IF K=@8H THEN C=C-2: BH=BB-1 '!* 

IF K=@9H THEN C=C+2: BR=BR+1 '!* 

IF K=@AH THEN R=R+1: BB=BR+1& '* 

IF K=@BH THEN R=R-1: BB=BB-16 '!* 

IF K=@DH THEN GOTO 49@ 

IF K>@1FH THEN MEMCBBI=K: GOTO 576 

IF C<6& AND R=6 THEN C=6: BR=BR+L !* 

IF C<& THEN C=36: R=R-1 !** : : 

IF C>36 AND R=i15 THEN C=35: BR=BH-1 '!* 

IF C236 THEN C=6: R=R+i !#* 

IF R<@® THEN R=@: BB=BBt+16& '!%* 

IF R2iS THEN R=1i5: BB=BB-16 !%* 

GOTO 570 © 

IF $M="Q" THEN GOTO 540 

BB=AB: R=@: C=6 '* 

? @(C,R)SELIMEMCBBIs: 7 @"2L"s 

K=KEYCO@]: IF K=@ THEN WAIT 1: GOTO 7594 

IF K=@8H THEN C=C-2: BB=BB-1 !* 

IF K=@9H THEN C=C+2: BR=BB+1 '* 

IF K=@AH THEN R=R+i: BH=BB+16 '* 

IF K=@BH THEN R=R-1: BB=BB-15 '!* 

IF K=@DH THEN GOTO 490 

IF K>@?2FH THEN IF K<@SAH THEN GOSUR 88¢e 

IF K*@4@H THEN IF K<@47H THEN K=K-7: GOSUB 880 

IF C<6& AND R=6 THEN C=6: BB=BHt+i ['** 

IF C<6& THEN C=36: R=R-1 !* 

IF C236 AND R=15 THEN C=26: BB=BR-1 !** 

IF C>36 THEN C=46: R=R+1i '# 

IF R<@ THEN R=@: BR=BB+16- '* 

IF R15 THEN R=1S: BH=BB-16 !* 

GOTG 746 

K=MODCK,16] 

MEMLBBJ=MODCMEMCBBI, 16]*16+K 

RETURN 
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P.C.B. Plot O.W.Hulme 


The PCB-PLOT programe was devised as an easy way to overcome 
the difficulty of drawing the tracks of a PCB. Erase and 
redraw a few lines on paper and it soon becomes unreadable, 
on the other hand a VDU leaves no trace of an alteration. 

Before loading type in “NEW 78EAH’ to reserve enough space 
for the transfer of screen into main memory. | 

From main memory it can be saved using MON.D 60EA 78EA ,but 
remember, it only records what was on the screen the last time 
you pressed the D key, which may not be what you are looking at the 
time of saving. | 
The L key loads the screen from main menOnY thus enabling work 
to be continued where you left off 

If while printing pads you use delete to repo ition them, 
reset the ink by using the home key. This puts ink to the pads 
but not the lines, enabling you to move from i.c pad to i.c.pad 
Without leaving unwanted lines. 

Code is included to call the paint routine but please. check 
lines 870 and 890 to ensure that baud rate and unit number are 
compatable with your printer. The listing for the paint routine 
can be found in the GROUP NEWSLETTER No4, page 7. 


PCs — PP lgOo' er 


10 TEXT 

20 necyn 

30 ; "DID YOU REMEMBER TO SET ‘NEW T83AH’ QM 
40: - " CONTROL KEYS" 

50 eS a have oats Sere 8 8. PIN: .1:/C 'PAD" 

60. 6 Tas awed 14 PIN I/C PAD" 

re ee ee 16 PIN I/C PAD" 

GQ 8M DBs oe ene 18 PIN I/C PAD" 

OO: MO nc ew gece 20 PIN I/C PAD" 

P00 BOM Doe tears 22 PIN I/C PAD" 

PO a Dae ee ee a 24 PIN I/C PAD". 

DOO) ee OD eee baie 28 PIN I/C PAD" 

£30 4%. °8 Mab es cane 40 PIN I/C PAD" 

EA ey eee GS SINGLE PAD" 

150 ; ™ ARROWS....CURSOR MOVEMENTS" 

160 ; ™ HOME...... MOVEMENTS ARE NEUTRAL" 
170 ; " INSERT....MOVEMENTS ARE PLOT" 

180 ; ™ DELETE....MOVEMENTS RAE UNPLOT" 
LOO) WED deden Saat LOAD VDU TO MAIN MEMORY" 
DO OO cet a ee a LOAD MAIN MEMORY TO VDU" 
BAOs WO Wie hese wrist gee ACTIVATE PAINT ROUTINE" 
220 ; : 3; " PRESS ANY KEY TO CONTINUE" 


230 K=KEY(0): IF K=0: GOTO 230 

240 DATA 513,6144,1218,-10238,-3807,-10238,-3807,-14629 
250 DATA -9184,-3808,1537,5884,896,4096,513,6144 

260° (DATA 5245644515 ~- 3808 4-102 98).= 3807 17905-10298 

270 DATA -—3807,-11024,1537,5885,896 

280 FOR I=06000H TO 06038H STEP 2 

290 READ A: MWD[I]=A: NEXT I 

300 SHAPE 1,-3904,-24432,2052,0 

310 A=0: B=0: C=2: PF=0 

320 SPRITE 0,A,B,1,15 
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330 K=KEY(0]: IF K=0: GOTO 330 
340 IF K=09H: A=A+l 
350 IF K=08H: A=A-1 
360. IF K=0BH: B=B-1 


370 -1F K=OAH: B=B+l 

380 IF K=017H: C=0 

390 IF K=016H: C=1 

400 IF K=Q1EH: C=2 

410 IF K=031H: X=10: GOTO 550 

420 IF K=032H: X=20: GOTO 550 | | 
430 IF K=038H: Y=17: X=15: GOTO 680 

440 IF K=050H: E=A: B=B: GOSUB 760 | | 


450 IF K=044H: CALL 06000H,0603AH 
460 IF K=04CH: CALL 0601CH,0603AH 
470 IF K=043H: GOSUB 840 

480 X=0. | 

490 IF K=034H: Y=31: X=95:. GOTO 680 
500 IF C=0: UNPLOT A,B 

510 IF C=l: PLOT A,B 

520 SPRITE 0,A,B 


530 GOTO 330 | : | | 
540 STOP ey 
550 UL=KEY[(0]: IF L=0: GOTO 550 | 
560 IF L=036H: X=(X+6)/2*5-5: Y=17: GOTO 680 
570 IF-L=034H: GOTO 610 
580 IF L=038H: GOTO 630 
590 IF L=030H: GOTO 650 
600 IF L=032H: GOTO 660 
610 Yeile TP 22206. esl 
620 X=(X+4)/2*5-5: GOTO 680 
630 Y=17: IF X=20: Y=3l 
640 X=(X+8)/2*5-5: GOTO 680 
650 Y=17: IF X=20: X=X/2*5-5: GOTO 680 
660 Y=22: IF X=20: X=(X+2)/2*5-5: GOTO 680 
670 GOTO 330 - | ! 
680 FOR I=0 TO X STEP 5 
690 E=A+I[ 
700 GOSUB 730 
710 NEXT I 
720 GOTO 330 
730 F=BtY: IF C=0: GOTO 790 
740° PLOT EYP TO-E4i.F TO. B4iy P+) TO: By b+l- TO fy P+? 
750. PLOT By PA? TO E41,F42 TO Bel. Fes TOR. Pea 
760 IF C=0: GOTO 810 ? | 
770 PLOT E,B TO B4+1,B TO E4+1,B+l1 TO E,B+l TO £,B+2 TO E+1,B+2 
780 PLOT E+1,B+2 TO E+1,B+3 TO E,B+3: GOTO 830 
790 UNPLOT E.F TO E4+1,.F TO £4+1,F+1 TO-E,F4+lL TO E,F42 
800 UNPLOT E,F+2 TO E4+1,F+2 TO E+1,F+3 TO E,F+3 
810 UNPLOT E,B TO E+1,B TO E+1,Bt+l TO E,Btl TO E,Bt+t2 TO E+1,B+2 
820 UNPLOT E+1,B+2 TO E+1,B+3 TO E,B+3 
830 RETURN , | 


840 REM 
850 MEM[OA4H+7]=15: MEM[OQA4H+4]J =1 
860 SWAP 


870 BAUD 2,1200: UNIT 2 
880 CALL OSEOQOH 
890 UNIT -2: RETURN 


14-9 


INTO ONTO AND OUT OF E.Bus PART 3 Tim Gray 


This the third article in the series follows a request from some 
members for more details of how to add the hardware necessery to 
get the &.Bus up and running. | | 


Firstly we now have available two P.C.B-s for the LS2001 
replacement circuit shown in part one. The reason for two P.C.B.s 
is because on the Cortex Mk 2 the main P.C.B. 15 mounted the 
opposite way round in the case to the Mk 1. This means that a 
header plug version of the LS2001 replacement circuit can’t be 
fitted as it would foul the keyboard. | | 


The header plug version P.C.B then 1s is for Mk 1 Cortex and 15 
fitted by plugging into the socket for the LS?001. The conven— 
tional P.C.B. is for Mk 2 Cortex and is designed to fit in 
between ICi1 the TMS999S and ICS the TMS9929 mounted on stick 
down P.C.B. stand off pillars. If the TMS9911 is fitted the 
ee oe straddles over it, if the new WD2797 floppy controller 1s 
used the TMS9911 is not required so the space is vacant. fhe 
more Bere oe is then wired back to the LS20@1 position where a socket 
is not required. : 


Fitting the LS2@01 replacement 


If you have done the mods on the main board as detailed in the 
Centronics interface kit start by removing them. Make up the 
LS2001 replacement P.C.8B#. as detailed in the drawings. If the 
header plug version is used fit wire wrap pins or socket and plug 
into IC89 position. If using the conventional P.C.B. connect fine 
wires to the terminals fit the P.C.B. in position using stand off 
pillars and wire back to IC89 position. 


The conventional P.C.B. also has a LS@4 fitted. This is to add 
two gates propogation delay between IC93 outputs and 1C95,96 & 97 
inputs. Cut the track from IC93 pin 3 and pin 4. Connect IC93 pin 
= to P.C.B. —-ABEIN. Connect P.C.B. —-ABEOUT to 1C95,976 pins 1 and 
19. Connect IC93 pin 3 to P.C.B. —DBEIN. Connect P.C.B. —DBEOUT 
to IC97 pin 19. This LS@4 is not included on the header plug 
version but the same can be achieved by making a i4 pin header 
plug with IC93 and a LS@4 saddle backed as per the drawing. This 
combined gate is then plugged into IC93 socket. 

All the other E.Bus interface IC.s should now be fitted. 


Fitting the memory mapper. 


Any of the following IC.s can be used in this position: — 

LS61@, LS611i, LS6i2, LS613 but LS611 and LS613 require 1ikK@ pull 
up resistors from +5V to pins 18,19,22,23,24,25,26 & 2/7. LS610 
and tS611 require a pull up resistor on pin 28. These pull up 
resistors can be conveniantly mounted allong side IC24& where the 
wire links were and allong side IC94 where the track has to be 
cut. The 4 links allong side IC26 must of course be removed and 
the tracks that connect IC94 inputs to ground must be cut to 
allow the mapper to function correctly. 
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Testing 


The main board can now be re-fitted to the Cortex and normal 
operation checked. After making sure the computer works normally 
then type *FRED. The Cortex should respond with the error message 
“expansion eprom not found" rather than "required hardware not 
found" as would be the case if the mapper was not fitted. 


Backplane 


The €£.Bus backplane should be constructed and wired back to the 
EF Bus socket on the Cortex with a short length of ribbon cable. 
Connect every other wire in the ribbon as an earth lead between 
signal wires. It is advisable to use an extra power supply for 
the Backplane and if so do not connect the power lines down the 
ribbon cable. 


Using the Bus...CRU 


CRU input / output is quite easy as any access to CRU locations 
outside of the internal range automatically causes an E.Bus CRU 
access to occure. Connection of other ™MS9902 serial ports how- 
ever involves using interupts and will be dealt with ina future 
article. | 


Memory 


Any access to external memory requires use of the memory mapper 
This device consists of 16 registers one for each 4K block of the 
64K CPU memory. map. The registers are located on word addresses 
from F100 to FIIE. In the Cortex only the lower 8 bits of the 
device are used but as the address decoding is not complete each 
mapper word location appears to have both high and low byte set 
to the same value. The 9 bit value in each register forms the top 
9 bits of a 20 bit address range. The mapper is normally set up 
for the conventional address range as shown: — 


internal address, 


mapper location, 


mapper value, 


extended addr 


2000 QFFE F1aa 20008 80000 QOFFE 
18a 1FFE F1@2 @i@i 21900 Q1iFFE 
20aQ 2FFE Fi@4 Q202 22000 O2FFE 
3000 BSFFE F1@6 Q3a3 23000 3SFFE 
4000 4FFE F1@8 0404 24000 Q@4FFE 
5000 SFFE F1@A Q@505 05000 Q@SFFE 
5000 SFFE F1@C 24606 26000 Q46FFE 
70aQ 7FFE F1@E Q707 27080 Q7FFE 
800a GFFE F11@ 28as 28aaea QSFFE 
9000 SOFFE Fil2 a9a9g 29808 Q9FFE 
ADAG AFFE F114 BABA DARGA QAFFE 
BOO BHFFE F116 QBOB~ ORAS QBFFE 
Caaa CFFE F119 acac OCHOA QCFFE 
EQQO EFFE Fi1A QE@E BEQAG QEFFE 
FOQO FFFE FL1E QF OF OFaaG OFFFE 
eS 


To access external memory one of the mapper locations must be 
programmed with a value greater than >@F. Lets assume we want to 
access extended memory starting at >14@@@. We can switch a 4k 
block of it into the normal 64K memory range starting at >2000 by 
programming the mapper register at >F1@4 to +14 instead of >@2. 
This in itself is not enough we also need to switch the mapper 
on. The code for doing all this is as follows:-— 


MOVB @>F104,RQ ;SAVE MAPPER CONTENTS 

LI R1,>1420 a 

MOVB R1,@>F104 ;LOAD MAPPER WITH NEW VALUE | 
—CKON sSWITCH MAPPER ON — | 

MOV @>201A,R2 FETCH DATA WORD FROM EXT ADDR >1401A 

CKOF ;SWITCH MAPPER OFF - 

MOVE RQ@,@>F104 ;RESTORE ORIGINAL MAPPER VALUE 


Unfortunately it would be quite difficult to do this from Basic 
firstly because there is no command to switch the mapper on or 
off and secondly because it is difficult to find a 4K block of 
memory to switch out that Basic does not use in some way. The 
best way to access a large area of expansion memory from Basic is- 
to use RAMDISC to configure a third drive as RAM. This allows use! 
of the disk commands OPEN, CLOSE, PUT and GET to be used to store 
or recall strings or variables to or from expansion memory. AS an: 
alternative if you don’t have disk drives or enough expansion 
memory to configure as RAMDISC use can be made of a routine in 
the Cortex ROM for tranfering data from external memory. This 
routine starts at 5454H and is not used by any of the Cortex 
system. There is a small bug in the routine but that can be 
easily fixed. The routine is only designed to transfer from 
external memory to internal memory but it can be modified to 
perform transfers in the opposite direction. 


Here is an example of how to make use of the routine :— 


10 REM *** EXPANSION MEMORY ACCESS *** 

20 DIM VAL4001,VBL4001] 

3@ COD=a 

40 AC=ADRCCODI 

5Q REM *** SET UP CODE TO CALL ROUTINE AT S4546H *** 

7Q@ MWDCACI=042@0H: MWDLAC+21=05456H: MWDCAC+41=@380H 

8@ FOR A=1 TO 400 

92 VALAI=A 

100 NEXT A 

110 REM *** STORE VAL] TO EXP MEM STARTING AT 14@10H *** 
130 MWDCL@5482H1]=@C8B4H: MWDL@5494HIJ=059CH '** SET TO WRITE 
14@ CALL AC,O,@14H,@10H,2400,ADRLVALOI]I 

150 REM *** READ BACK TO VB[@] #** ; 

140 MWDLO@S482HI=O@CD22H: MWDL@5494HI=O59CH !** SET TO READ 
170 CALL AC,@,@14H,@10H, 2400,ADR(IVBIGI] 

18@ REM *** CHECK DATA *** 

i9@ FOR A=1 TO 400 

200 PRINT £"9999"VBLAIs" "3 

21@ NEXT A 

2?0 STOP 


Se eo 


The parameters for the Calls at 14@ and 170 are as follows :- 


CALL AC ,<zero>,<external page>,<external start addr>,<number of 
bytes to transfer>,<internal address for start of transfer, 


The first parameter is not used but is required to put the other 
parameters in the correct registers of the call routine. 


The external page number is the top byte of the extended address. 


The external start address is the remaining three nibbles of the 
extended address. 


The transfer will start at the address given for external and 
internal memory and will be incremented up to the number of bytes 
to transfer. There is no limit to the size of eache transfer as 
the routine automatically increments the external page as it gets 
to the end of a 4K boundary. | 


It is of course necessary to keep track of memory usage but the 
routine can be used effectively to expand variable storage space 
considerably. | 
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